home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTFormAspect.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  2.2 KB  |  66 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTFormAspect.pas' rev: 3.00
  6.  
  7. #ifndef AHMTFormAspectHPP
  8. #define AHMTFormAspectHPP
  9. #include <AHMTFormHook.hpp>
  10. #include <AHMSystem.hpp>
  11. #include <Windows.hpp>
  12. #include <Classes.hpp>
  13. #include <Messages.hpp>
  14. #include <SysUtils.hpp>
  15. #include <SysInit.hpp>
  16. #include <System.hpp>
  17.  
  18. //-- user supplied -----------------------------------------------------------
  19.  
  20. namespace Ahmtformaspect
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. typedef void __fastcall (__closure *TAHMOnClientModified)(System::TObject* Sender, int &X, int &Y);
  24.  
  25. typedef void __fastcall (__closure *TAHMBeforeResizing)(System::TObject* Sender, Windows::TRect &R);
  26.     
  27.  
  28. class DELPHICLASS TAHMFormAspect;
  29. class PASCALIMPLEMENTATION TAHMFormAspect : public Ahmtformhook::TAHMHookComponent 
  30. {
  31.     typedef Ahmtformhook::TAHMHookComponent inherited;
  32.     
  33. private:
  34.     TAHMOnClientModified FOnClientModified;
  35.     TAHMBeforeResizing FBeforeResizing;
  36.     int FAspectX;
  37.     int FAspectY;
  38.     bool FEnabled;
  39.     bool FClient;
  40.     
  41. public:
  42.     __fastcall virtual TAHMFormAspect(Classes::TComponent* AOwner);
  43.     __fastcall virtual ~TAHMFormAspect(void);
  44.     virtual void __fastcall Loaded(void);
  45.     virtual void __fastcall Hooked(Messages::TMessage &AMsg);
  46.     virtual void __fastcall EstablishAspectRatio(Word Side, Windows::TRect &Rect);
  47.     
  48. __published:
  49.     __property bool Enabled = {read=FEnabled, write=FEnabled, default=1};
  50.     __property int RatioWidth = {read=FAspectX, write=FAspectX, default=1};
  51.     __property int RatioHeight = {read=FAspectY, write=FAspectY, default=1};
  52.     __property bool Client = {read=FClient, write=FClient, default=1};
  53.     __property TAHMOnClientModified OnClientModified = {read=FOnClientModified, write=FOnClientModified
  54.         };
  55.     __property TAHMBeforeResizing BeforeResizing = {read=FBeforeResizing, write=FBeforeResizing};
  56. };
  57.  
  58. //-- var, const, procedure ---------------------------------------------------
  59.  
  60. }    /* namespace Ahmtformaspect */
  61. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  62. using namespace Ahmtformaspect;
  63. #endif
  64. //-- end unit ----------------------------------------------------------------
  65. #endif    // AHMTFormAspect
  66.